home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest92 / A03 EBS Plasma < prev    next >
Text File  |  1992-12-08  |  3KB  |  106 lines
  1. ; Name: PLASMA
  2. ; EBS 1992 Qualifying Tournament Entry
  3. ;
  4. ; Author: Wayne Sheppard
  5. ; Email: gt7804b@prism.gatech.edu
  6. ; I am not an ICWS member
  7. ;
  8. ; PLASMA scans until it finds something non-zero.  This is either
  9. ; either the enemy program or a bomb.  All locations in that area
  10. ; are bombed.  Then PLASMA goes to a replicator mode.  This strategy
  11. ; allows some success against other scanners, beats all bombers,
  12. ; ties other replicators or imps.
  13.  
  14. bomb      equ start-1
  15. start     add #3455,loc  
  16. loc       jmz start,-1   ;search until non-zero found
  17.           cmp #-1,@loc   ;don't look at DJN trails
  18.           slt #100,loc   ;program length
  19.           jmp start
  20.           mov bomb,@loc  ;kill whatever is found
  21.           cmp <loc,bomb  ;until no more instructions
  22.           jmp -2
  23. rep       spl rep2       ;now replicate in case
  24.           spl 1          ;enemy is not dead
  25.           spl 1
  26.           spl paper4
  27.           spl paper3
  28.           spl paper2
  29.           mov #8,8
  30. paper1    mov <-1,<2     ;This replicator is from FlashPaper
  31.           mov <-2,<1     ;by Matt Hastings
  32.           spl @0,-2340
  33.           mov <-1,<1020
  34.           jmz -5,-5
  35.           mov 0,-1
  36.           dat #4000
  37.           dat #4000
  38.           mov #8,8
  39. paper2    mov <-1,<2
  40.           mov <-2,<1
  41.           spl @0,5823
  42.           mov <-1,<-740
  43.           jmz -5,-5
  44.           mov 0,-1
  45.           dat #4000
  46.           dat #4000
  47.           mov #8,8
  48. paper3    mov <-1,<2
  49.           mov <-2,<1
  50.           spl @0,1000
  51.           mov <-1,<-3690
  52.           jmz -5,-5
  53.           mov 0,-1
  54.           dat #4000
  55.           dat #4000
  56.           mov #8,8
  57. paper4    mov <-1,<2
  58.           mov <-2,<1
  59.           spl @0,6109
  60.           mov <-1,<1873
  61.           jmz -5,-5
  62.           mov 0,-1
  63.           dat #4000
  64.           dat #4000
  65.           mov #8,8
  66. rep2      spl 1
  67.           spl 1
  68.           spl paper8
  69.           spl paper7
  70.           spl paper6
  71. paper5    mov <-1,<2
  72.           mov <-2,<1
  73.           spl @0,3009
  74.           mov <-1,<-200
  75.           jmz -5,-5
  76.           mov 0,-1
  77.           dat #4000
  78.           dat #4000
  79.           mov #8,8
  80. paper6    mov <-1,<2
  81.           mov <-2,<1
  82.           spl @0,4832
  83.           mov <-1,<-1830
  84.           jmz -5,-5
  85.           mov 0,-1
  86.           dat #4000
  87.           dat #4000
  88.           mov #8,8
  89. paper7    mov <-1,<2
  90.           mov <-2,<1
  91.           spl @0,1080
  92.           mov <-1,<4096
  93.           jmz -5,-5
  94.           mov 0,-1
  95.           dat #4000
  96.           dat #4000           
  97.           mov #8,8
  98. paper8    mov <-1,<2
  99.           mov <-2,<1
  100.           spl @0,-3040
  101.           mov <-1,<-195
  102.           jmz -5,-5
  103.           mov 0,-1
  104.           dat #4000
  105.           dat #4000
  106.